home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Magazine / SFX / sfx-data / _rexx / FromSoundProbe.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-12-15  |  1.0 KB  |  50 lines
  1. /****h* SoundFX/FromSoundProbe.rexx [1.10] *
  2. *
  3. *  NAME
  4. *    FromSoundProbe.rexx
  5. *  COPYRIGHT
  6. *    $VER: FromSoundProbe.rexx 1.10 (23.09.98) © by David O'Reilly & Stefan Kost 1998-1998
  7. *  FUNCTION
  8. *    imports the current sample from SoundProbe
  9. *  AUTHOR
  10. *    David O'Reilly            dr
  11. *    Stefan Kost            sk
  12. *  CREATION DATE
  13. *    17.Jun.1998
  14. *  MODIFICATION HISTORY
  15. *    23.Sep.1998    V 1.10    adapted to SoundFX (sk)
  16. *    17.Jun.1998    V 1.00    initial version (dr)
  17. *  NOTES
  18. *
  19. *******
  20. */
  21.  
  22. OPTIONS RESULTS
  23. ADDRESS 'SOUNDPROBE'
  24.  
  25. GETPROJECT
  26. pid=RESULT
  27. IF pid=0 THEN DO
  28.     ADDRESS 'REXX_SFX' SFX_Message '"There is no current SoundProbe project !"'
  29.     EXIT
  30. END
  31. GETATTR PROJECT pid STORAGEID buf
  32. IF buf=0 THEN DO                    /* test for data storage */
  33.     ADDRESS 'REXX_SFX' SFX_Message '"SoundProbe project is empty!"'
  34.     EXIT
  35. END
  36.     
  37. GETATTR PROJECT pid NAME smp_name
  38. SAVEAS 't:tmp_sp2sfx.aiff AIFF.spiolibrary'
  39.  
  40. ADDRESS 'REXX_SFX'
  41.  
  42. SFX_SelLoader 'IFF-AIFF'
  43. SFX_LoadSample 't:tmp_sp2sfx.aiff'
  44. buf1=RESULT
  45. SFX_RenameBuffer buf1 smp_name
  46. SFX_Activate
  47.  
  48. ADDRESS COMMAND 'delete >nil: t:tmp_sp2sfx.aiff'
  49. EXIT
  50.